home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pc_c9105.arc / WHEREIAM.BAS < prev   
BASIC Source File  |  1991-04-16  |  696b  |  30 lines
  1. 10  CLS : PRINT "What is the message to display?" : PRINT
  2. 20  LINE INPUT MSG$
  3. 30  PRINT : PRINT "Press 'Q' at any time to end the screen blanker..."
  4. 40  FOR J = 1 TO 25000
  5. 50     J = J + 1
  6. 60  NEXT J
  7. 70  S=LEN(MSG$)
  8. 80  BACKCOLOR = 0
  9. 90  FRONTCOLOR = 3
  10. 100 ROWNUM = 4 : COLNUM = 7
  11. 110 COLOR FRONTCOLOR,BACKCOLOR
  12. 120 CLS
  13. 130 LOCATE ROWNUM,COLNUM
  14. 140 PRINT MSG$
  15. 150 L = 1
  16. 160 ROWNUM = INT(RND*20)+1
  17. 170 COLNUM = INT(RND*(80-S))+1
  18. 180 WHILE L
  19. 190    COLOR FRONTCOLOR,BACKCOLOR
  20. 200    LOCATE ROWNUM,COLNUM
  21. 210    PRINT TIME$
  22. 220    L = L + 1
  23. 230    IF L = 250 THEN L = 0
  24. 240    A$ = INKEY$
  25. 250    IF A$ = "q" OR A$ = "Q" THEN 280
  26. 260 WEND
  27. 270 GOTO 120
  28. 280 CLS
  29. 290 SYSTEM
  30.